home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / games / _kalaha / source / c / moves < prev    next >
Encoding:
Text File  |  1992-03-04  |  6.7 KB  |  354 lines
  1.  
  2. /* this deals with the triggering of moves by user
  3. or (by alarm) for computer; the queueing of data for 
  4. later display; and the updating of the window and sound
  5. (also by alarm) */
  6.  
  7. #include "kalaha.h"
  8.  
  9.  
  10.  
  11. static void translate_real_to_working(char * h);
  12. static void update_display(int p, int gain);
  13. static int display_move(char * h, int p);
  14. static void queue_a_plop(int p, int gain);
  15. static void comp_moves(void);
  16. static void real_move(int p);
  17.  
  18. /* control passes to functions in this file via the 
  19.   following two extern functins */
  20.  
  21.  
  22. void icon_hit(wimp_i i)
  23. {
  24. int layer;
  25.  
  26. /* do nothing if move in progress */
  27. if ( plopsdone < nofplops )
  28.   return;
  29.  
  30. /* click on arrow */
  31. if (i==6 && !automove && starterplayer != UservUser)
  32.   {
  33.   comp_moves();
  34.   return;
  35.   }
  36.  
  37. layer = which_layer(i);
  38. if (layer != TOPLAY  && layer != BOTLAY)
  39.   return;
  40. /* Now left with clicks on move icons.  Eliminate illegal moves */
  41. if (layer == TOPLAY  &&  (botgo  ||  top[i-7]==0  ||  starterplayer != UservUser)) 
  42.   return;
  43. if (layer == BOTLAY  &&  ((!botgo) || bot[i]==0)) 
  44.   return;
  45.  
  46. real_move(i);
  47. }
  48.  
  49.  
  50.  
  51.  
  52. void alarm_handler_proc(int calledat, void *handle)
  53. {
  54. handle = handle;
  55.  
  56. if  (plopsdone == nofplops)  /* if no move in progress */
  57.   {
  58.   plopsdone = nofplops = 0;
  59.   if (automove  && starterplayer != UservUser)
  60.     comp_moves();  
  61.   }
  62.  
  63. if (plopsdone < nofplops)
  64.   {
  65.   update_display(pendingplops[plopsdone].p, pendingplops[plopsdone].gain);
  66.   plopsdone += 1;
  67.   }
  68.  
  69. while (calledat <= alarm_timenow())
  70.   calledat += 50;
  71. alarm_set(calledat, alarm_handler_proc, (void *)0 );
  72. } 
  73.  
  74.  
  75.  
  76. void queue_a_plop(int p, int gain)
  77. {
  78. if (p<14 && gain == 0) 
  79.      return;
  80. pendingplops[nofplops].p = p;
  81. pendingplops[nofplops].gain = gain;
  82. nofplops += 1;
  83. }
  84.  
  85.  
  86.  
  87. void comp_moves(void)
  88. {
  89. char here[14];
  90. int move, depth;
  91.  
  92. depth = 5*level/3;
  93. wassert(depth < MAXDEPTH);
  94. if (!botgo  && (top[0]|top[1]|top[2]|top[3]|top[4]|top[5]) && starterplayer != UservUser)
  95.   {
  96.   visdelay_begin();       
  97.   translate_real_to_working(here);
  98.   if (level == 0)
  99.     move = stupid_move(here);
  100.   else
  101.     move = best_n_move(depth, here).move;
  102.   visdelay_end();
  103.   
  104.   real_move( 7 + move );
  105.   }
  106. }
  107.  
  108.  
  109.  
  110.  
  111. void update_display(int p, int gain)
  112.  
  113. /*  p is 0...14,  0...13 being  c-clockwise from mover's botleft
  114. gain is change to h[p], can be 0 or -ve
  115. p>=14 is a special case, meaning update botgo and arrow according to 
  116.  gain which is TRUE if change player, and deselect starting icon (p-14)
  117. always.
  118. */
  119. {
  120. wimp_redrawstr r;
  121. BOOL           more;
  122. int            balls;
  123.  
  124.  
  125. /* convert from mover's to bot's point of view */
  126. if (which_layer(p) != OTHERLAY && !botgo)
  127.   {        
  128.   p += 7;
  129.   if (p>13)
  130.       p -= 14;
  131.   }
  132.  
  133. switch (which_layer(p))
  134.   {
  135.   case BOTLAY:
  136.   bot[p] += gain;
  137.   break;
  138.   case TOPLAY:
  139.   top[p-7] += gain;
  140.   break;
  141.   case MIDRIGHT:
  142.   bottot += gain;
  143.   break;
  144.   case MIDLEFT:  
  145.   toptot += gain;
  146.   break;
  147.   case OTHERLAY:
  148.   if (gain==TRUE)
  149.     botgo = !botgo;
  150.   break;
  151.   }
  152.  
  153. if (which_layer(p) != OTHERLAY  &&  gain>=1  &&  soundon)
  154.   {
  155.   int oldbeats, oldtempo;      
  156.   /* attempt not to interfere with other programs' sound
  157.      - probably doomed to failure anyway */
  158.   oldbeats = bbc_getbeats();   
  159.   oldtempo = bbc_gettempo();
  160.  
  161.   wimpt_noerr(bbc_soundon());
  162.   wimpt_noerr(bbc_settempo(4096));
  163.   wimpt_noerr(bbc_setbeats(0));       
  164.   balls = 1;
  165.   while (balls<gain)
  166.     {
  167.     wimpt_noerr(bbc_sound(1, -13, 103, 1, 5*balls));
  168.     balls += 1;
  169.     }
  170.   wimpt_noerr(bbc_sound(1, -13, 103, 2, 5*gain));
  171.   wimpt_noerr(bbc_sound(1, -13, 108, 1, 5*gain+7));
  172.  
  173.   wimpt_noerr(bbc_settempo(oldtempo));
  174.   wimpt_noerr(bbc_setbeats(oldbeats));  
  175.   }
  176.  
  177. r.w = main_window_handle;
  178. find_hollow_box(&(r.box), p);
  179.   
  180. wimpt_noerr(wimp_update_wind( &r, &more ));
  181. while (more)
  182.   {
  183.   plot_one_hollow(p, r);  
  184.   wimpt_noerr(wimp_get_rectangle(&r, &more));
  185.   }
  186.  
  187.  
  188. switch (which_layer(p))
  189.   {
  190.   case BOTLAY:
  191.   write_iconnum(bot[p], p);
  192.   wimpt_noerr(wimp_set_icon_state(main_window_handle, p, 0, 0));
  193.   break;
  194.   
  195.   case TOPLAY:
  196.   write_iconnum(top[p-7], p);
  197.   wimpt_noerr(wimp_set_icon_state(main_window_handle, p, 0, 0));
  198.   break;
  199.  
  200.   case MIDRIGHT:
  201.   write_iconnum(bottot, 13);
  202.   wimpt_noerr(wimp_set_icon_state(main_window_handle, 13, 0, 0));
  203.   break;
  204.  
  205.   case MIDLEFT:
  206.   write_iconnum(toptot, 14);
  207.   wimpt_noerr(wimp_set_icon_state(main_window_handle, 14, 0, 0));
  208.   break;
  209.   
  210.   case OTHERLAY:
  211.   set_icon_select_state(main_window_handle, p-14, FALSE);
  212.   break;
  213.   }
  214. }
  215.  
  216.  
  217.  
  218.  
  219.  
  220. int display_move(char * h, int p)
  221. /* do a displayed move */
  222. /* 
  223. passed game situation in h[0...13].  posn p, 0<=p<5, is
  224. to move.
  225.              12 11 10  9  8  7
  226.           13                   6
  227.               0  1  2  3  4  5
  228.  
  229. If botgo, this maps directly to screen positions, else add 7 mod 14.
  230. */
  231. /*
  232. Returns: MY,YOUR,OVER according to another go, opp's go, game end
  233.          Updates h[] to new values
  234. */
  235. /* 
  236. this is very similar to virtual_move(), but calls queue_a_plop() to
  237. update the 'real' (global) variables bot[], top[], botot, and 
  238. toptot (but not botgo) and then force a redraw.
  239. */
  240. {
  241. int carry, i, temp;
  242.  
  243. carry = h[p];
  244. h[p] = 0; queue_a_plop(p, -carry);
  245.  
  246. while (carry-->0)
  247.   {
  248.   p++;
  249.   if (p==13) p=0;
  250.   h[p] += 1; queue_a_plop(p, 1);
  251.   }
  252. if (p < 6  &&  h[p] == 1)
  253.   {
  254.   h[p] = 0;  queue_a_plop(p, -1);
  255.   h[6] += 1; queue_a_plop(6,  1);
  256.   temp = h[12-p];
  257.   h[12-p] = 0;  queue_a_plop(12-p, -temp);
  258.   h[6] += temp;  queue_a_plop(6, temp);
  259.   }
  260. if (h[0]==0 && h[1]==0 && h[2]==0 && h[3]==0 && h[4]==0 && h[5]==0)
  261.   {
  262.   for (i=7; i<13; i++)
  263.       {
  264.       temp = h[i];
  265.       h[i] = 0; queue_a_plop(i, -temp);
  266.       h[6] += temp; queue_a_plop(6, temp);
  267.       }
  268.   return OVER;
  269.   }
  270. else if (h[7]==0 && h[8]==0 && h[9]==0 && h[10]==0 && h[11]==0 && h[12]==0)
  271.   {
  272.   for (i=0; i<6; i++)
  273.       {
  274.       temp = h[i];
  275.       h[i] = 0; queue_a_plop(i, -temp);
  276.       h[6] += temp; queue_a_plop(6, temp);
  277.       }
  278.   return OVER;
  279.   }
  280. else
  281.   {
  282.   if (p==6)
  283.       return MY;
  284.   else
  285.       return YOUR;
  286.   }
  287. }
  288.  
  289.  
  290.  
  291. void translate_real_to_working(char * h)
  292. {  
  293. int i;   
  294. if (botgo)
  295.   {
  296.   for (i=0; i<6; i++)
  297.       h[i] = bot[i];
  298.   h[6] = bottot;
  299.   for (i=7; i<13; i++)
  300.       h[i] = top[i-7];
  301.   h[13] = toptot;
  302.   }
  303. else
  304.   {
  305.   for (i=0; i<6; i++)
  306.       h[i] = top[i];
  307.   h[6] = toptot;
  308.   for (i=7; i<13; i++)
  309.       h[i] = bot[i-7];
  310.   h[13] = bottot;
  311.   }
  312. }
  313.    
  314.  
  315.  
  316.  
  317.  
  318.  
  319.  
  320. void real_move(int p)
  321. {
  322. /* now p can be 0...5 or 7...12 depending on whse go. */
  323. char h[14];  
  324.  
  325. if ( (p<0 || p>6)  &&  botgo)
  326.   werr(TRUE, "SNAFU at line %d", __LINE__);
  327. if ( (p<7 || p>12) &&  !botgo)
  328.   werr(TRUE, "SNAFU at line %d", __LINE__);
  329. if (p<6)
  330.   set_icon_select_state(main_window_handle, p, TRUE);
  331. else
  332.   set_icon_select_state(main_window_handle, p, TRUE);
  333.   
  334. translate_real_to_working(h);
  335. /* Now translated into display_move() format */
  336.  
  337. switch ( display_move(h, (p>6) ? p-7 : p) )
  338.   {
  339.   case OVER:       
  340.   break;
  341.  
  342.   case MY:
  343.   queue_a_plop(14+p, FALSE);   
  344.   break;        
  345.  
  346.   case YOUR:  
  347.   queue_a_plop(14+p, TRUE);
  348.   break;
  349.   }
  350. }
  351.  
  352.  
  353.  
  354.